
module Data (
        module Data,
        module Types,
        module Relational,
        module Data.Time.Calendar
    ) where

import Types
import Relational
import Data.Time.Calendar

genesis = fromGregorian (-8000) 1 1
day = flip addDays genesis

-- relations

peopleRel :: [ (Name, Gender, DoB) ]
peopleRel = [
        (Name "Adam",    Male,   DoB (day 6)),
        (Name "Eve",     Female, DoB (day 6)),
        (Name "Cain",    Male,   DoB (day 120)),
        (Name "Abel",    Male,   DoB (day 120))
    ]

parentsRel :: [ (Name, Parent) ]
parentsRel = [
        (Name "Cain",   Parent "Adam"),
        (Name "Cain",   Parent "Eve"),
        (Name "Abel",   Parent "Adam"),
        (Name "Abel",   Parent "Eve")
    ]
    
obituariesRel :: [ (Name, Day) ]
obituariesRel = undefined
